home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
U-User Group
/
(k)u5.d64
/
scr2petsci.func
< prev
next >
Wrap
Text File
|
2007-02-28
|
451b
|
20 lines
9000 //--- SCREEN CODE TO PETASCII--
9010 //--- CONVERSION FUNCTION -----
9020 //
9030 // CALLING STATEMENT COULD LOOK
9040 // LIKE THIS:
9050 // PRINT CHR$(SCR_PETSCI(LOC)),
9060 // WHERE LOC IS A SCREEN
9070 // LOCATION FROM 1024 TO 2023.
9080 //
9090 FUNC SCR_PETSCI(LOC)
9100 C:=PEEK(LOCATION)
9110 IF C>=65 AND C<=90 THEN
9120 RETURN C+32
9130 ELIF C<32 OR C>90 THEN
9140 RETURN C+64
9150 ELSE
9160 RETURN C
9170 ENDIF
9180 ENDFUNC SCR_PETSCI